home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / tcp / WebFTP_DEMO.lha / Install < prev    next >
Encoding:
Text File  |  1998-02-14  |  2.8 KB  |  111 lines
  1. ;  *** WebFTP installation script ***
  2.  
  3.  
  4. ; *** Set some useful messages ***
  5.  
  6.    (set app-name           "WebFTP")
  7.    (set #install-msg (cat  "\n\nWebFTP installation.\n\n"
  8.                            "Read the documentation for\n"
  9.                            "more information on usage.\n\n"
  10.                            "WebFTP © 1998 Zap Systems.\n"
  11.                            "All rights reserved."))
  12.    (set #welcome-msg       "Welcome to the WebFTP installation!")
  13.    (set #bad-kick          "You must be using Kickstart 3.0 to use this program!")
  14.    (set #bad-installer     "You must be using Installer 43.x to install WebFTP!")
  15.    (set #ask-program-dir   "Where shall I install the program ?\n(A directory will be created)")
  16.    (set #ask-html-dir      "Where shall I assign your html directory to?")
  17.     (set #html-name         "LocalHTML")
  18.     (set #prog-name         "WebFTP_DEMO")
  19.  
  20. ; *** Welcome the user to the installation
  21.  
  22.    (message #install-msg)
  23.  
  24. ; *** Check for Kickstart version ***
  25.  
  26.    (if (< (/ (getversion) 65536) 39)
  27.       (
  28.       (abort #bad-kick)
  29.       )
  30.    )
  31.  
  32. ; *** Check for Installer-Version ***
  33.  
  34.    (if (< (/ @installer-version 65536) 43)
  35.       (
  36.       (abort #bad-installer)
  37.       )
  38.    )
  39.  
  40.  
  41. ; *** Ask the user for the default-destinations ***
  42.  
  43.   (set #prog-dest (askdir (prompt #ask-program-dir)
  44.                            (help @askdir-help)
  45.                            (default "INet:")
  46.                            ;(disk)
  47.                    )
  48.    )
  49.    (set #prog-dir (tackon #prog-dest #prog-name)
  50.     )
  51.     (makedir           #prog-dir)
  52.  
  53.  
  54. ; *** Ask the user for the html dir ***
  55.  
  56.   (set #html-source (askdir (prompt #ask-html-dir)
  57.                            (help @askdir-help)
  58.                            (default "LocalHTML:")
  59.                            ;(disk)
  60.                    )
  61.    )
  62.    (makeassign #html-name #html-source)
  63.  
  64.  
  65. ; *** Copy the program ***
  66.  
  67.    (copyfiles (prompt #copyfiles)
  68.               (source "")
  69.               (dest   #prog-dir)
  70.               (choices "WebFTP_DEMO" "WebFTP_DEMO.info" "WebFTP_DEMO.guide" "WebFTP_DEMO.guide.info")
  71.    )
  72.  
  73.  
  74. ; *** Keyfile install ***
  75.  
  76.    (if (exists "WebFTP.key" (NOREQ) )
  77.        (
  78.        (copyfiles (prompt @copyfiles-help)
  79.                   (source "")
  80.                   (dest #prog-dir)
  81.                   (choices "WebFTP.key")
  82.        )
  83.        )
  84.    )
  85.  
  86.  
  87. ; *** Ignore file install ***
  88.  
  89.    (if (exists "WebFTP.ignore" (NOREQ) )
  90.        (
  91.        (copyfiles (prompt @copyfiles-help)
  92.                   (source "")
  93.                   (dest #prog-dir)
  94.                   (choices "WebFTP.ignore")
  95.        )
  96.        )
  97.    )
  98.  
  99. ; *** Add assigns to the user-startup
  100.  
  101.     (set add-to-startup    ( cat 
  102.                                         "Assign LocalHTML: "#html-source"\n"
  103.                                 )
  104.     )
  105.  
  106.     (startup #prog-name     (prompt "Writing the assign to your user-startup")
  107.                                 (help @startup-help)
  108.                                 (command add-to-startup)
  109.     )
  110.  
  111.